home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.01 Jan 88 / mpw source stuff / for Tools folder / MixMake ver.1 < prev    next >
Encoding:
Text File  |  1987-09-14  |  1.3 KB  |  57 lines  |  [TEXT/MPS ]
  1. ###    MixMake version 1.  
  2. ###    Uses only Consulair Exec application runner
  3. ### Script file to build programs with
  4. ### MacC or TML systems
  5. ###        W.G. Powell    1987    for MacTutor
  6.  
  7. ### Initialize variables
  8. #    Exec and MacC input and scratch files
  9. Set Efile "Exec.Job"
  10. Set Cfile "MacC.Files"
  11. Set Lfile "Link.Tmp"
  12. Delete -i "{Efile}" "{Cfile}" "{Lfile}"
  13. #    Application run flags
  14. Set RunMacC 0
  15. Set RunLink 0    # Consulair
  16. Set RunTMLLink 0
  17. #    Make's working directory
  18. Set MakeWD "`Directory`"
  19. Export MakeWD
  20.  
  21. ### Run the Make tool
  22. make {"Parameters"} > MakeOutApps ≥ Dev:StdOut
  23.  
  24. ### Construct the input for the Exec application
  25. Execute MakeOutApps
  26. Delete MakeOutApps
  27. If ({RunMacC} == 1)
  28.     Echo "C    {Cfile}    Exec    Done">>"{Efile}"
  29. End
  30. If ({RunLink} == 1 || {RunTMLLink} == 1)
  31.     Catenate "{Lfile}" >>"{Efile}"
  32.     Delete -i "{Lfile}"
  33. End
  34. Unset RunMacC
  35. Unset RunLink
  36. Unset RunTMLLink
  37. Unset Lfile
  38. Unset Cfile
  39. Unset MakeWD
  40.  
  41. ### Set up the Resume tasks for after the applications
  42. ### Primarily for error handling
  43. Set PostApp "{MPW}UserResume"
  44. Echo "Unset Efile" >"{MPW}UserResume"
  45. Catenate  "{MPW}MakeSupport:MixMakeResume" >>"{MPW}UserResume"
  46.  
  47. ### If Diagnostic menu item is still around from
  48. ###    an earlier build cycle, delete it.
  49. Set __oldExit {Exit}
  50. Set Exit 0
  51. DeleteMenu File "Open Diagnostics…" ≥ Dev:Null
  52. Set Exit {__oldExit}
  53. Unset __oldExit
  54.  
  55. ### Run applications using Consulair's Exec
  56. Exec "{Efile}"
  57.